home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / gfx / board / rtgmaster.lha / Install_RTGMaster < prev    next >
Text File  |  1996-11-01  |  10KB  |  375 lines
  1. (procedure check-system-version
  2.  (set exec-version (/ (getversion) 65536))
  3.  (if (< exec-version 37)
  4.   (abort "Rtgmaster needs at least Exec version 37.\n")
  5.  )
  6. )
  7.  
  8. (set #NoUp    "No, Don't update")
  9. (set #OnlyNew "Yes, Only if newer")
  10. (set #YesAll  "Yes, No matter what")
  11. (set #wishtoinstall "Do you wish to install any of the following?")
  12. (set #guide "AmigaGuide File")
  13. (set #devdocs  "Developer Documentation")
  14. (set #incl "Includes")
  15. (set #demos "Demos")
  16. (set #goodies "Goodies")
  17. (set #WhereStuffDir "Please select where you wish to put them.\n(A directory called \"RTGMaster\" will be created there!)")
  18. (set #wishtoinstall2 "Do you wish to install the latest version of the rtgmaster c2p package ? (It c2p algorithms with the same filenames are existing, they will be overwritten)")
  19. (set #installit "RtgMaster c2p Package")
  20.  
  21. (procedure copy-files-to-destination
  22.  (set vernum1 (getversion "libs:rtgmaster.library"))
  23. (set ver1 (/ vernum1 65536))
  24. (set rev1 (- vernum1 (* ver1 65536) ) )
  25.  
  26.  
  27. (set vernum2 (getversion "libs/rtgmaster.library"))
  28. (set ver2 (/ vernum2 65536))
  29. (set rev2 (- vernum2 (* ver2 65536) ) )
  30.  
  31.  (set pick 0)
  32.  
  33. (set pick (askchoice
  34.                 (choices #NoUp #OnlyNew #YesAll)
  35.                 (prompt ("'rtgmaster.library' :\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nVersion Currently Installed   : %ld.%ld\n\nVersion From Update : %ld.%ld\n\nDo you wish to install Version %ld.%ld of the 'rtgmaster.library' \n" ver1 rev1 ver2 rev2 ver2 rev2))
  36.                 (help "rtgmaster.library is the main-library of rtgmaster. You HAVE TO install it. ")
  37.               (default 1)
  38.           )
  39. )
  40.  
  41.  
  42.  
  43. (if (= pick 1)
  44.  
  45.         (copylib (source "libs/rtgmaster.library") (dest "libs:"))
  46.  
  47. )
  48.  
  49.  
  50. (if (= pick 2)
  51.  
  52.         (copyfiles
  53.                 (prompt "Copying 'rtgmaster.library' to Libs:")
  54.                 (source "libs/rtgmaster.library")
  55.                 (dest "libs:")
  56.                 (confirm)
  57.                 (infos) (help " ")
  58.         )
  59.  
  60. )
  61.  
  62. (complete 10)
  63.  
  64.  (set vernum1 (getversion "libs:rtg/rtgCGX.library"))
  65. (set ver1 (/ vernum1 65536))
  66. (set rev1 (- vernum1 (* ver1 65536) ) )
  67.  
  68.  
  69. (set vernum2 (getversion "libs/rtg/rtgCGX.library"))
  70. (set ver2 (/ vernum2 65536))
  71. (set rev2 (- vernum2 (* ver2 65536) ) )
  72.  
  73.  (set pick 0)
  74.  
  75. (set pick (askchoice
  76.                 (choices #NoUp #OnlyNew #YesAll)
  77.                 (prompt ("'rtg/rtgCGX.library' :\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nVersion Currently Installed   : %ld.%ld\n\nVersion From Update : %ld.%ld\n\nDo you wish to install Version %ld.%ld of the 'rtg/rtgCGX.library' \n" ver1 rev1 ver2 rev2 ver2 rev2))
  78.                 (help "rtg/rtgCGX.library is the CyberGraphX Support-Library of Rtgmaster ")
  79.               (default 1)
  80.           )
  81. )
  82.  
  83.  
  84.  
  85. (if (= pick 1)
  86.  
  87.         (copylib (source "libs/rtg/rtgCGX.library") (dest "libs:rtg"))
  88.  
  89. )
  90.  
  91.  
  92. (if (= pick 2)
  93.  
  94.         (copyfiles
  95.                 (prompt "Copying 'rtg/rtgCGX.library' to Libs:Rtg")
  96.                 (source "libs/rtg/rtgCGX.library")
  97.                 (dest "libs:rtg")
  98.                 (confirm)
  99.                 (infos) (help " ")
  100.         )
  101.  
  102. )
  103.  
  104. (complete 15)
  105.  
  106. (set vernum1 (getversion "libs:rtg/rtgAMI.library"))
  107. (set ver1 (/ vernum1 65536))
  108. (set rev1 (- vernum1 (* ver1 65536) ) )
  109.  
  110.  
  111. (set vernum2 (getversion "libs/rtg/rtgAMI.library"))
  112. (set ver2 (/ vernum2 65536))
  113. (set rev2 (- vernum2 (* ver2 65536) ) )
  114.  
  115.  (set pick 0)
  116.  
  117. (set pick (askchoice
  118.                 (choices #NoUp #OnlyNew #YesAll)
  119.                 (prompt ("'rtg/rtgAMI.library' :\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nVersion Currently Installed   : %ld.%ld\n\nVersion From Update : %ld.%ld\n\nDo you wish to install Version %ld.%ld of the 'rtg/rtgAMI.library' \n" ver1 rev1 ver2 rev2 ver2 rev2))
  120.                 (help "rtg/rtgAMI.library is needed for ECS/AGA support of rtgmaster ")
  121.               (default 1)
  122.           )
  123. )
  124.  
  125.  
  126.  
  127. (if (= pick 1)
  128.  
  129.         (copylib (source "libs/rtg/rtgAMI.library") (dest "libs:rtg"))
  130.  
  131. )
  132.  
  133.  
  134. (if (= pick 2)
  135.  
  136.         (copyfiles
  137.                 (prompt "Copying 'rtg/rtgAMI.library' to Libs:Rtg")
  138.                 (source "libs/rtg/rtgAMI.library")
  139.                 (dest "libs:rtg")
  140.                 (confirm)
  141.                 (infos) (help " ")
  142.         )
  143.  
  144. )
  145.  
  146. (complete 20)
  147.  
  148.  (set pick 0)
  149.  
  150. (set vernum1 (getversion "libs:rtg/rtgEGS.library"))
  151. (set ver1 (/ vernum1 65536))
  152. (set rev1 (- vernum1 (* ver1 65536) ) )
  153.  
  154.  
  155. (set vernum2 (getversion "libs/rtg/rtgEGS.library"))
  156. (set ver2 (/ vernum2 65536))
  157. (set rev2 (- vernum2 (* ver2 65536) ) )
  158.  
  159. (set pick (askchoice
  160.                 (choices #NoUp #OnlyNew #YesAll)
  161.                 (prompt ("'rtg/rtgEGS.library' :\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nVersion Currently Installed   : %ld.%ld\n\nVersion From Update : %ld.%ld\n\nDo you wish to install Version %ld.%ld of the 'rtg/rtgEGS.library' \n" ver1 rev1 ver2 rev2 ver2 rev2))
  162.                 (help "rtg/rtgEGS.library is for support of EGS Boards with EGS WB-Emulation running ")
  163.               (default 1)
  164.           )
  165. )
  166.  
  167.  
  168.  
  169. (if (= pick 1)
  170.  
  171.         (copylib (source "libs/rtg/rtgEGS.library") (dest "libs:rtg"))
  172.  
  173. )
  174.  
  175.  
  176. (if (= pick 2)
  177.  
  178.         (copyfiles
  179.                 (prompt "Copying 'rtg/rtgEGS.library' to Libs:Rtg")
  180.                 (source "libs/rtg/rtgEGS.library")
  181.                 (dest "libs:rtg")
  182.                 (confirm)
  183.                 (infos) (help " ")
  184.         )
  185.  
  186. )
  187.  
  188. (complete 25)
  189.  
  190.  (set pick 0)
  191.  
  192. (set vernum1 (getversion "libs:rtg/rtgPICA.library"))
  193. (set ver1 (/ vernum1 65536))
  194. (set rev1 (- vernum1 (* ver1 65536) ) )
  195.  
  196.  
  197. (set vernum2 (getversion "libs/rtg/rtgPICA.library"))
  198. (set ver2 (/ vernum2 65536))
  199. (set rev2 (- vernum2 (* ver2 65536) ) )
  200.  
  201. (set pick (askchoice
  202.                 (choices #NoUp #OnlyNew #YesAll)
  203.                 (prompt ("'rtg/rtgPICA.library' :\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nVersion Currently Installed   : %ld.%ld\nVersion From Update : %ld.%ld\n\nDo you wish to install Version %ld.%ld of the 'rtg/rtgPICA.library' \nNOTE: Might crash your system in this version, \n if you do not have a Picasso II installed" ver1 rev1 ver2 rev2 ver2 rev2))
  204.                 (help "rtg/rtgPICA.library is needed for Picasso II Boards running with Villagetronic WB-Emulation software ")
  205.               (default 1)
  206.           )
  207. )
  208.  
  209.  
  210.  
  211. (if (= pick 1)
  212.  
  213.         (copylib (source "libs/rtg/rtgPICA.library") (dest "libs:rtg"))
  214.  
  215. )
  216.  
  217.  
  218. (if (= pick 2)
  219.  
  220.         (copyfiles
  221.                 (prompt "Copying 'rtg/rtgPICA.library' to Libs:Rtg")
  222.                 (source "libs/rtg/rtgPICA.library")
  223.                 (dest "libs:rtg")
  224.                 (confirm)
  225.                 (infos) (help "")
  226.         )
  227.  
  228. )
  229.  
  230.  
  231. (complete 35)
  232.  
  233. (set ToDo       (askoptions (choices #guide #devdocs #incl #demos #goodies)
  234.                             (prompt #wishtoinstall)
  235.                             (help #wishtoinstall)
  236.                             (default 63)
  237.                 )
  238. )
  239.  
  240. ;********************************************************************************
  241. ; Ask WHERE to install DEVDOCS, Versions, Order, guide
  242. ;********************************************************************************
  243. (if (<> ToDo 0)
  244.  (
  245.  
  246.   (set RtgMaster (askdir (prompt #WhereStuffDir)
  247.                            (help   #WhereStuffDir)
  248.                            (default "Work:")
  249.                    )
  250.   )
  251.  
  252.  
  253.   (if (< (exists (tackon RtgMaster "RtgMaster")) 2)
  254.       (makedir (tackon RtgMaster "RtgMaster") (infos))
  255.  
  256.   )
  257.  
  258.  
  259.   (set where (tackon RtgMaster "RtgMaster"))
  260.   (set @default-dest RtgMaster)
  261.  
  262. ;********************************************************************************
  263. ; COPY selected stuff!
  264. ;********************************************************************************
  265.  
  266.   (if (IN ToDo 0)
  267.    (
  268.  
  269.      (copyfiles (source "rtgmaster.guide")  (dest where) (infos) (newname "rtgmaster.guide"))
  270.  
  271.    )
  272.   )
  273.  
  274. (complete 40)
  275.  
  276.   (if (IN ToDo 1)
  277.    (
  278.      (if (< (exists (tackon where "DevDocs")) 2)
  279.           (makedir (tackon where "DevDocs") (infos))
  280.      )
  281.      (copyfiles (source "devdocs") (dest (tackon where "DevDocs")) (all) )
  282.    )
  283.   )
  284.  
  285. (complete 50)
  286.  
  287.   (if (IN ToDo 2)
  288.    (
  289.      (if (< (exists (tackon where "Includes")) 2)
  290.           (makedir (tackon where "Includes") (infos))
  291.      )
  292.      (copyfiles (source "Includes") (dest (tackon where "Includes")) (all) )
  293.    )
  294.   )
  295.  
  296. (complete 60)
  297.  
  298.   (if (IN ToDo 3)
  299.    (
  300.      (if (< (exists (tackon where "Demos")) 2)
  301.           (makedir (tackon where "Demos") (infos))
  302.      )
  303.           (copyfiles (source "demos") (dest (tackon where "Demos")) (all) )
  304.    )
  305.   )
  306.  
  307. (complete 70)
  308.  
  309.   (if (IN ToDo 4)
  310.    (
  311.      (if (< (exists (tackon where "Goodies")) 2)
  312.           (makedir (tackon where "Goodies") (infos))
  313.      )
  314.           (copyfiles (source "goodies") (dest (tackon where "Goodies")) (all) )
  315.    )
  316.   )
  317.  
  318. (complete 80)
  319.  
  320.   (set RtgMaster where)
  321.  
  322.   (set c2p       (askoptions (choices #installit)
  323.                             (prompt #wishtoinstall2)
  324.                             (help #wishtoinstall2)
  325.                             (default 63)
  326.                 )
  327. )
  328.  
  329. (if (IN c2p 0)
  330.  (
  331.   (copyfiles (source "rtgc2p") (dest ("libs:rtgc2p")) (all))
  332.  )
  333. )
  334.  
  335.  )
  336. )
  337.  
  338. )
  339.  
  340.  
  341.  
  342. ;;;; Start
  343.  
  344. ;(welcome "Welcome to the Rtgmaster installation.\n")
  345.  
  346. (set app-name "Rtgmaster")
  347.  
  348. (check-system-version)
  349.  
  350. (complete 0)
  351.  
  352. (set source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon))
  353.  (expandpath @icon))
  354. )
  355.  
  356. (if (not (exists ("libs:rtg")))
  357.  (makedir ("libs:rtg") (infos))
  358. )
  359.  
  360. (if (not (exists ("libs:rtgc2p")))
  361.  (makedir ("libs:rtgc2p") (infos))
  362. )
  363.  
  364. (complete 0)
  365.  
  366. (copy-files-to-destination)
  367.  
  368. (complete 100)
  369.  
  370. (exit "You should reboot your machine now. Note for "
  371.        "users : You don't have to bother much about rtgmaster.library from now on, "
  372.        "simply start the programs it uses :) To change an already saved Screenmode "
  373.        "press SHIFT while running the program. For more information : Read the "
  374.        "User information in the Docs.")
  375.